home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed26.d64 / snow (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  189 lines

  1. 10 POKE53280,0:POKE53281,0:POKE53272,21:P=0
  2. 20 PRINT"[147][159]                                        [146]";
  3. 22 PRINT"                                        [146]";
  4. 24 PRINT"                                        [146]";
  5. 26 PRINT"                                        [146]";
  6. 28 PRINT"                  SNOW                  [146]";
  7. 30 PRINT"                                        [146]";
  8. 32 PRINT"[159]                                        [146]";
  9. 34 PRINT"                                        [146]":GOSUB392:GOSUB560
  10. 36 PRINT"[154]     PRESS  SPACE BAR [146] TO CONTINUE
  11. 38 [161]R$:[139]R$[179][177][199](32)[167]38
  12. 50 [137]1000
  13. 300 [141]530:[141]394:[153]"DEF TRY AGAIN!":[141]560:[141]391:[142]
  14. 350 [153]"               CORRECT!                 WAIT":[141]500
  15. 355 [141]392:[153]"LOAD":[141]391:[142]
  16. 370 [153]" READ THIS CAREFULLY":[141]560:[141]560:[141]394:[142]
  17. 390 [129]T[178]1[164]600:[130]:[142]
  18. 391 [129]T[178]1[164]1000:[130]:[142]
  19. 392 [129]T[178]1[164]2000:[130]:[142]
  20. 393 [129]T[178]1[164]3000:[130]:[142]
  21. 394 [129]T[178]1[164]4000:[130]:[142]
  22. 395 [129]T[178]1[164]5000:[130]:[142]
  23. 500 [143] <YES>
  24. 505 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  25. 510 [151]54296,15:[151]54277,42:[151]54278,250
  26. 515 [151]54276,23:[151]54273,23:[151]54272,191
  27. 520 [129]T[178]1[164]250:[130]:[151]54276,32:[129]T[178]1[164]300:[130]
  28. 525 [151]54296,0:[142]
  29. 530 [143] <NO>
  30. 535 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  31. 540 [151]54296,15:[151]54277,18:[151]54278,242
  32. 545 [151]54276,33:[151]54273,4:[151]54272,48
  33. 550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  34. 555 [151]54296,0:[142]
  35. 560 [143] <BLIP>
  36. 565 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  37. 570 [151]54296,8:[151]54277,42:[151]54278,250
  38. 575 [151]54276,23:[151]54273,23:[151]54272,191
  39. 580 [129]T[178]1[164]40:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  40. 585 [151]54296,0:[142]
  41. 1000 [153]"PRINTLOAD I WANT YOU TO READ A STORY ABOUT
  42. 1010 PRINT" CHILDREN PLAYING IN THE SNOW.
  43. 1020 [153]" AFTER YOU HAVE READ THE STORY, THERE
  44. 1030 PRINT" WILL BE SOME QUESTIONS FOR YOU TO       ANSWER.
  45. 1040 [153]"CONT PRESS SPACE BAR WHEN YOU ARE READY.":[141]560
  46. 1050 [161]R$:[139]R$[179][177][199](32)[167]1050
  47. 1055 [141] 1200
  48. 1060 [137]2000
  49. 1080 [141] 1200
  50. 1085 [137]2000
  51. 1200 [153]"LOAD              THE STORY                 WAIT"
  52. 1210 [153]"OPEN IT SNOWED ALL DAY ON MONDAY.
  53. 1215 PRINT" ON TUESDAY, BRAD AND SARAH PLAYED IN
  54. 1220 [153]" THE WHITE SNOW.  THEY JUMPED AND FELL   IN THE DEEP SNOW.
  55. 1225 PRINT" BRAD LOST A MITTEN AND SOME MONEY.
  56. 1230 [153]" SARAH LOST HER RING IN THE DEEP SNOW.
  57. 1235 PRINT" "CHR$(34)"I WANT MY RING!"CHR$(34)" SAID SARAH. "CHR$(34)"PLEASE
  58. 1240 [153]" HELP ME FIND IT!"[199](34)
  59. 1245 [153]" BRAD SAID, "[199](34)"NO, SARAH.  THE SNOW IS TOO DEEP."[199](34)
  60. 1247 [141]393:[153]"CONT     PRESS SPACE BAR TO CONTINUE":[141]560
  61. 1248 [161]R$:[139]R$[179][177][199](32)[167]1248
  62. 1250 [153]"LOADOPEN ON WEDNESDAY,THE SUN WAS HIGH IN THE
  63. 1253 PRINT" SKY AND THERE WAS LESS SNOW.
  64. 1255 [153]" IT WAS HOPELESS BECAUSE THE SNOW WAS    STILL TOO DEEP.
  65. 1260 PRINT" ON THURSDAY, THERE WAS JUST A LITTLE    SNOW.
  66. 1265 [153]" ON FRIDAY, THE SNOW WAS GONE AND IN     THE MUD WAS A WET MITTEN.
  67. 1270 PRINT" BY THE FENCE WAS SARAH'S SHINY          LITTLE RING.
  68. 1275 [153]" BRAD'S MONEY WAS THERE, TOO!":[141]393
  69. 1277 [153]"CONT     PRESS SPACE BAR TO CONTINUE":[141]560
  70. 1278 [161]R$:[139]R$[179][177][199](32)[167]1278
  71. 1280 [153]"LOAD YOU NOW HAVE A CHOICE:
  72. 1285 PRINT" PRESS  R [146] TO REPEAT THE INSTRUCTIONS.
  73. 1290 [153]" PRESS  B WAIT FOR THE QUESTIONS
  74. 1295 GETR$:IFR$<>"R"ANDR$<>"B"THEN1295
  75. 1296 IFR$="R"THEN RESTORE:GOTO1200
  76. 1297 RESTORE:PRINT"[147]":GOSUB392
  77. 1298 RETURN
  78. 2000 PRINT"[159][147] WHEN DID THE SNOW BEGIN TO FALL? ":GOSUB560
  79. 2010 PRINT"[153] (A) ... MONDAY
  80. 2020 [153]" (B) ... WEDNESDAY
  81. 2030 PRINT" (C) ... FRIDAY
  82. 2040 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  83. 2050 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2050
  84. 2060 IFR$="B"THENPRINT"[150] READ CAREFULLY":GOSUB300:P=P+1:GOTO2000
  85. 2070 IFR$="C"THENPRINT"[150] WHOOPS! TRY AGAIN.":GOSUB300:P=P+1:GOTO2000
  86. 2080 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2000
  87. 2090 GOSUB350
  88. 2100 PRINT"[159][147] HOW DID BRAD LOSE HIS MONEY?[153]":GOSUB560
  89. 2110 PRINT" (A) ... SARAH HID IT IN THE SNOW.
  90. 2120 [153]" (B) ... SOMEONE TOOK IT OUT OF HIS              MITTEN.
  91. 2130 PRINT" (C) ... WHEN BRAD FELL, THE MONEY FELL          FROM HIS POCKET.
  92. 2140 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  93. 2150 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2150
  94. 2160 IFR$="A"THENPRINT"[150] SARAH WOULD NOT DO THAT!":GOSUB300:P=P+1:GOTO2100
  95. 2170 IFR$="B"THENPRINT"[150] WHO WOULD DO THAT?  ":GOSUB300:P=P+1:GOTO2100
  96. 2180 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2100
  97. 2190 GOSUB350
  98. 2200 PRINT"[159][147] WHY DIDN'T SARAH FIND HER RING?[153]":GOSUB560
  99. 2210 PRINT" (A) ... THE TREES HID IT.
  100. 2220 [153]" (B) ... THE SNOW WAS TOO DEEP.
  101. 2230 PRINT" (C) ... SARAH HAD LEFT IT AT HOME.
  102. 2240 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  103. 2250 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2250
  104. 2260 IFR$="A"THENPRINT"[150] WHAT TREES? ":GOSUB300:P=P+1:GOTO2200
  105. 2270 IFR$="C"THENPRINT"[150] SHE HAD BEEN WEARING IT.":GOSUB300:P=P+1:GOTO2200
  106. 2280 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2200
  107. 2290 GOSUB350
  108. 2300 PRINT"[159][147] WHERE WAS THE RING FOUND?            [153]":GOSUB560
  109. 2310 PRINT" (A) ... BY THE FENCE
  110. 2320 [153]" (B) ... UNDER THE TREE
  111. 2330 PRINT" (C) ... IN A FLOWER POT
  112. 2340 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  113. 2350 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2350
  114. 2360 IFR$="B"THENPRINT"[150] CERTAINLY NOT!":GOSUB300:P=P+1:GOTO2300
  115. 2370 IFR$="C"THENPRINT"[150] WOW! TRY AGAIN!  ":GOSUB300:P=P+1:GOTO2300
  116. 2380 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2300
  117. 2390 GOSUB350
  118. 2400 PRINT"[159][147] WHAT CAME FIRST IN THIS STORY?  [153]":GOSUB560
  119. 2410 PRINT" (A) ... A MITTEN WAS FOUND
  120. 2420 [153]" (B) ... SARAH ASKED BRAD FOR HELP
  121. 2430 PRINT" (C) ... THEY PLAYED IN THE SNOW
  122. 2440 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  123. 2450 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2450
  124. 2460 IFR$="A"THENPRINT"[150] WHEN WAS IT LOST. ":GOSUB300:P=P+1:GOTO2400
  125. 2470 IFR$="B"THENPRINT"[150] REALLY?      ":GOSUB300:P=P+1:GOTO2400
  126. 2480 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2400
  127. 2490 GOSUB350
  128. 2500 PRINT"[159][147] WHAT WAS THE CHILDREN'S HELPER?[153]":GOSUB560
  129. 2510 PRINT" (A) ... FUN IN THE MUD
  130. 2520 [153]" (B) ... THE MOON
  131. 2530 PRINT" (C) ... THE SUN
  132. 2540 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  133. 2550 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2550
  134. 2560 IFR$="A"THENPRINT"[150] DO YOU LIKE MUD PIES? ":GOSUB300:P=P+1:GOTO2500
  135. 2570 IFR$="B"THENPRINT"[150] DING! DING! TRY AGAIN!":GOSUB300:P=P+1:GOTO2500
  136. 2580 IFR$="D"THENGOSUB370:GOSUB1200:P=P+1:GOTO2500
  137. 2590 GOSUB350
  138. 2600 PRINT"[159][147] ON WHAT DAY DID BRAD AND SARAH PLAY"
  139. 2605 PRINT" IN THE SNOW?[153]":GOSUB560
  140. 2610 PRINT" (A) ... WEDNESDAY
  141. 2620 [153]" (B) ... TUESDAY
  142. 2630 PRINT" (C) ... MONDAY
  143. 2640 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  144. 2650 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2650
  145. 2660 IFR$="A"THENPRINT"[150] NOT SO!         ":GOSUB300:P=P+1:GOTO2600
  146. 2670 IFR$="C"THENPRINT"[150] UGH! TRY AGAIN.":GOSUB300:P=P+1:GOTO2600
  147. 2680 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2600
  148. 2690 GOSUB350
  149. 2700 PRINT"[159][147] ON WHAT DAY DID THEY FIND THEIR THINGS?[153]":GOSUB560
  150. 2710 PRINT" (A) ... FRIDAY
  151. 2720 [153]" (B) ... SUNDAY
  152. 2730 PRINT" (C) ... SATURDAY
  153. 2740 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  154. 2750 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2750
  155. 2760 IFR$="B"THENPRINT"[150] WOW! THAT'S WILD!  ":GOSUB300:P=P+1:GOTO2700
  156. 2770 IFR$="C"THENPRINT"[150] NOT LIKELY!      ":GOSUB300:P=P+1:GOTO2700
  157. 2780 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2700
  158. 2790 GOSUB350
  159. 2800 PRINT"[159][147] WHAT IS THE BEST NAME FOR THIS STORY?[153]":GOSUB560
  160. 2810 PRINT" (A) ... FUN IN THE MUD
  161. 2820 [153]" (B) ... THE SUN AND THE SNOW
  162. 2830 PRINT" (C) ... THE LOST FENCE
  163. 2840 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
  164. 2850 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2850
  165. 2860 IFR$="A"THENPRINT"[150] WAKE UP!        ":GOSUB300:P=P+1:GOTO2800
  166. 2870 IFR$="C"THENPRINT"[150] YOU'RE BEING SILLY!":GOSUB300:P=P+1:GOTO2800
  167. 2880 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2800
  168. 2890 GOSUB350
  169. 3000 PRINT"[147]              SCORE BOARD               [146]":GOSUB391
  170. 3005 IFP=0THENPRINT"              EXCELLENT!"
  171. 3010 IFP=00THENGOSUB500:GOSUB500:GOSUB393:GOTO3045
  172. 3015 IFP=1THENPRINT"[153]       YOU MADE JUST ONE BLOOPER.":GOSUB392
  173. 3020 IFP=1THENPRINT"               GOOD WORK."
  174. 3025 IFP=1THEN GOSUB500:GOSUB393:GOTO3045
  175. 3030 PRINT"[150]       YOU HAVE MADE"P"BLOOPERS.":GOSUB530:GOSUB530:GOSUB392
  176. 3035 PRINT"[150]    YOU SHOULD REPEAT THIS STORY AND
  177. 3040 [153]"       TRY TO GET A BETTER SCORE,":[141]393
  178. 3045 [153]"OPEN                                        WAIT"
  179. 3050 [153]" YOU NOW HAVE A CHOICE:":[141]560
  180. 3055 [153]" PRESS  R WAIT TO REPEAT THIS STORY
  181. 3060 PRINT" PRESS  M [146] TO RETURN TO THE DISK MENU
  182. 3065 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167] 3065
  183. 3070 [139]R$[178]"R"[167] [140]:[137]1000
  184. 3075 [153]"LOAD RETURNING TO THE DISK MENU
  185. 3080 LOAD"MENU",8
  186. 3085 RUN
  187. 3090 END
  188. 4000 REM WHC 92 06 02
  189.